إنني جديد في عالم البرمجة و كنت قد وعدت صديقي نصر الدين - مدير 
موقع جامع العلوم - بدرس تصميم برنامج شات الا انه كدت أن لا أفي 
بوعدي لانه و ببساطة مللت رفع الصور و تنسيق الموضوع في المنتدى و 
على شاكلة کتاب لم و آرجو من كل شخص يستفيد منه أن لا يحرمنا 
دعائه بالصلاح و النجاح في الدراسة .. 
اخركدة الع 
7T‏ 
77 
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مشرو عنا البسيط هو : 


Cl1lentsocket 
And 
Serversocket 


مدخل : هذان الاداتين تستعمل لربط جهازين مع بعضهما البعض غالبا ما 
أستخدمتا لتصميم بر امج ج الاختراق من الجيل الاول مثل gy netbus‏ 
غيرها » و لكن في درسنا هذا لن نتعلم كيفية تصميم برنامج اختراق او ما 
شابه و انما سوف نستخدمهما لعمل برنامج شات صغیر و منه سوف نفهم 
طريقة عمل هذين الاداتين و طريقة عمل تلك البرامج 


شروط الاتصال بين جهازين : 
: رقم الاي بي : 
هو رقم غير ثابت بمعنی يتغير كلما دخلت الى الانترنت يقوم بتعريف 
جهاز الكمبيوتر مثل لوحات ارقام السيارات يعطى هذا الرقم عند الاتصال 
بالانترنت من طرف مزود الخدمة و يستحيل أن يتشابه أي بي جهازين 


متصلين في نفس الوقت و في حالة كان الجهاز غير متصل يكون الاي بي 
الخاص به على النحو التالي " 127.0.0.1 " يطلق عليه بالاي بي 
هناك ربط يحتاج الى انترنت أي جهازين مختلفين و في مكانين مختلفين 

يتکون اللاي بي من أربع خانات يفصل بينها نقاط متلا 
PRRPARDPARVAR‏ 
الخانة الاولى هي للبلاد الخانة الثانية هي لمزود الخدمة و هكذا ربما فهمت 
الان كبف يمكن تحديد مكانك 
للمزيد من الشرح عليك ب معإع00ع 


2: البورت ١0۲م‏ ( المنفذ) : 
هو رقم أي رقم كان 5200 › 4544 › 1605+256.... 
( لا تتمادی يا اخي لیس 10000000000000) 
یستخدم هذا الرقم کمنفد یتصل به عبر جھازین اذا اتصل ۲ہع 1ا ب 

server‏ فانه يتصل من خلال ذلك المنفذ و إع۷إعء (العميل ) ينتضر من 

خلال نفس المنفذ لشرح أوفر عليك ماع00ع 

لنبدأً العمل الآن 
اعداد الأداة 
في حالة كانت النسخة السادسة من الدلفي لا مشكلة الأداتين موجودتين في 
هسم 


Internet 
Standard | Supplêérmert | Winda | Suskêrnê Dialoaues | i 3. | | Exermoles | Actiyeêê | 
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فى حالة كانت النسخة السابعة فان النسخة السابعة من الدلفى لا تأتى معها 
٠‏ الاداتين ۰ ٠‏ 
Clientsocket and serversocket‏ 

فهذه طريفة الإعداد ( الاضافة ) 
ار ادا کت تمل علے تسخن من الدلئے غل و احد و ایی علے واد 

في أعلى الصفحة اضغط على 

Composant >> Installer des paquets 
بعد ضهور نمودج‎ 

Options de project إضخط‎ >> ajouter>> ٽاlفلٹملا قم باستعر اض‎ 


و أضف 


dclsockets 7/0.bp| 
هذا الاخير تجده في مجلد ( م1ط ) بين مجلدات الدلفي‎ 
بعد تثبيت الاداتين تجدهما كما في الصورة‎ 


R FAS 2F o o 


Editi TE dit 


Proprlêlês | Eyênermentz | 


PopupMenu 
Read nly 

2 hayH init 
TablUrder 
TabS5tap 


نفس الشيئ بالنسبة للأزرار غيرهما كما في الصور ‏ 


ES ETT 


Inspecteur d'objets |x| Inspecteur d'objets 
Button] TButtar Button TButtor 
Proprlêkêz | Evênements | Prapriêlês | Evênements | 


Actor 4car 

Hûnchars [akLefkakToap] Anchors [akLeft.akT ap] 
BiDiMades biLefT Right BiDiMade  bdLeftT oRight 
Lancel False Lancel False 
Caption Caption 


[TSizeLonstralnts] Loanstralnts 


Tous alfichêz „û J Tous alfichês 


انتهينا من اعداد الفورم 
الان انقر نقرة واحدة على 
Clientsocket‏ 


Propriétés ةمئlق من‎ 


Inspecteur d'objets [| 
LlhentSocket] TLlhentSockel ¥ 


Proprlêltês | Evénerments | 
dcliYE False 
AIAress 


Llentlype cINonBlocking 
Host 


arme LlentSocketl 
Fart 
ERYICE 


Tous affichês 


جيد الأن نقرتان على 
Button I1‏ 
و أف التالى : 


clientsocket1.Address:=edıt1. Text ; 


clientsocket1.Active:=true ; 


الكود الاول نخبره بالعنوان الذي سيتصل به و الذي هو الاي بي 
الكود الثاني نفعل به الاتصال 
el Gl Ty‏ 
طيب الان نقرتان على زر قطع الاتصال و في محرر الشيفرة نضيف 
الكود التالى : 
clientsocket1.Active:=false ;‏ 
بهذا الكود نقطع الاتصال 
نفذ البرنامج ۴9 
كل شيئ تمام إذا اغلق لنعود الى بيئة التطوير 
غير عنوان الفورم الى 0.0.1 اطع 
اجعل زر قطع الاتصال غير مفعل من خلال خاصة عاطاهمع 


» 
را اک‎ ET ت‎ e 2 اس‎ 
| LI BININ 


IN ICLLELNN 


Heıght 21 
HelpLonteut U 
HelpEepwarc 
HelpTypE htLontext 
Hint 

Left 304 | 
ModalRezult) mr one ب‎ 


س ا 
الضغط عليه و السبب الذي يدفعنا الى جعله غير مفعل هو اننا لا نحتاج اليه 
ما دام أننا لم ننتصل 
الأن نقرة على ع)ع0ءامع1آاء كي يصبح العمل عليها ( مفعلة ) 
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) قسم الاحداث‎ ( evé n ements إنتقل من ء6ا16إم‌ہ۲م الى‎ 
Inspecteuır d'objets [| 
LlentSoacketl TLlentSackel ¥ 


InLoannect 
InLoannectnga 


Tous affichêz 2‏ 
کی المكان الفراع المكان الأبيضص اضغط مر تین على حدٿ onconnec†)‏ 
و فى محرر الشيفر ة اضف التالى : 


ë5 Unit1.pas 


pProaoCeEAUIr FE TForm1.ClientSocket1Connect [Sende | 
HOCkET: TLuUSTOmMUWINSOGCkKELT ] ; 
hejin 
EFOEMNLLAPDLION TCT CDCI o a 
buttonl. Enabled: =fTfalse; 
:=tr ue ;| 


Il Yariables/Constanlte: 
ses 
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procedure TForml.LlIIeEntSBoCkETLIDisconnectr [3t 


SûCkET: TLustomVWinSocket ) ; 
begin 5 


| ا ا " " د — اآ. س کک د کے 


GM 7 
س | 1 ل لاا‎ Monifié Insertion Lode Hal 


form1.Caption:=' chat 0.0.01 متصل..‎ ' ; 


button1.Enabled:=false; 
button2.Enabled:=true; 
السطر الأول : عند الاتصال نعلم ذلك من خلال عنوان الفورم‎ 
-' نا غر ماصان :و يما ا اتا نا عمل على حت الاتضال‎ 


يجب أن نفعل زر قطع الاتصال و نجعل زر الاتصال غير مفعل لاننا 
الخطوة الثانية 
أضف اللالى عند حدث OnConnecting)‏ ( محاولة الاتصال 


form1.Caption:=' chat 0.0.01 جاري الاتصال..‎ ' ; 


button 1.Enabled:=false; 
button2.Enabled:=true; 


أضف التالي عند حدث قطع |لاlتصDisconnect)Jdl (On‏ 
;أقطع الاتصال..0.0.01 form1.Caption:='chat‏ 


button 1.Enabled:=true; 
button2.Enabled:=false; 


أضف التالي عند حدث وتو ع خطÎ‏ ) On Error‏ ( 


; اخطأً في الاتصال !! 0.0.01 form1.Caption:='chat‏ 


button 1.Enabled:=true; 
button2.Enabled:=false:; 


إنتهينا من الجزء الأول الان احفض المشروع في مجلد أطلق عليه اسم 
٤ienاcو‏ انشئ مجلد جدید ٤۲‏ ۲۷عS‏ 
سبب إنشاء مجلدين ع1ا له إعم مء هو ان الدلفي يفقوم بحفض 
المشروعات في مجلد و أحد project‏ و هو المجلاد الافتراضي فاذ|ا حفضنا 
المشروعين في نفس المجلد سوف تختلط الامور علينا و نحن لا نريد ذلك 
الان 
ا کے كت اار2 مك ا مر اج ار ا هة 
وا ےو 


internet ةمئأlã‎ ja serversocket مروفll أضف ازى‎ 
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غیر بورت ۲٥۲۷ء‏ الی نفس بورت )ع1ا 
غير ۸٥10امca‏ الفورم ازى 0.0.1 ) chat ( server‏ 
إضغط مرتين على الفورم و في محرر الشيفرة اضف التالي 


Form1.caption:='chat ( server ) 0.0.1 .. يستمع ليتصل‎ '; 


serversocket1.Active:=true; 
: شرح الكود‎ 
c11 ۷ءء یقوم تلقائیا بانتضار اتصال ۸ع‎ ٥٢ عند فتح‎ 1 
و السال كيف سنعرف أن مزاع متصل بنا‎ 
عندما كنا نبرمج امعزاء أضفنا كود الى حدث الاتصال يخبرنا انه اتصل‎ 
Sع۲۷٤۲ نفس الشیئ مع‎ 
) إضغط ضغطة على اع)عموإم۷إعء كي يصبح العمل عليه ( مفعلة‎ 


في قائمة الاحداث و عند حدث اتصال 1۸آ ب ںserve‏ 
)0n C1ientConnect)‏ أضف التالي : 
;' متصل 0.0.1 ) form1.Caption:='chat( server‏ 
بهذا نعرف اتصال ال 11ء حیث ان عنوان ٥۲٥۳‏ سیتغیر من یستمع 
ليتصل الى متصل 
أضف التالي عند حدث قطع الاتصال : 
;' تم قطع الاتصال 0.0.1 ) form1.Caption:='chat( server‏ 


أضف التالي عند حدث الخطأً في الاتصال : 
: اخطأً في الاتصا 0.0.1 ) form1.Caption:='chat( server‏ 


u UCR a NES 
Pإ0jعc)1.ع×ع فيه المشرو ع‎ 
لتأکد من أن کل شیئ جيد‎ 
إفتح إع۷إعء و امع1اع - خارج بيئة التطوير - و قم بالاتصال على الاي‎ 
بي الافتراضي 127.0.0.1 أذ اننا لا نحتاج الى انترنت كي تتصل‎ 
S۵۲۷۴۲ انتهینا من مشاکل الربط بین ۸ع‌زاc و‎ 


و إجعل الفورم كالتالي 
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إتصالل / فطع الإنصال 


| فطع الاتصال_ | لاال 7001 


اسم الدخول 
اداد :لسم الد ويل 


1 
ےا 


رسال 


لز يادة جمال البرنامج ا 
[Standard] | Supnplêment | win32 | Svstème | AecèsBD | ContrêleBD | dbEpress | DataSnan | EDE |j‏ 
R AF Ram wur e RE= |=‏ 
roupBox (StICT ls)‏ : 
ملاحضة فى حالة لاحضت انها ضاهرة فوق الازرار اضغط يمين الفأرة و 
۰ اختر كما في الصورة 


Edition ۴ 


ptions de contrûle Metre en avant plan 
Position ۴ etre en arr iğre-plan 


Basculer l'enfant ۴ 

a Urdre de tabulation... 
Lrdre de crêation... 
REevenir ã hêr itë 


û joer al! rêfêrentiBl..., 


YWOir COMME EXE 
FY TERHTE 


تلاحض أيضا اننا أضفنا أيضا 2 من 0مصعص و قمنا با 
المتحرك من خاصية كإهط011اعs‏ 


اا 
NEES‏ 


Meral TMerno 
Proprlêkês Evênermentz | 


Parents howH| 
Popup erd 


ShowHint 


i lable #4‏ 
labsip Ime‏ 4 
lad o 7T8‏ ۳ 
E Co‏ 0 
س اط 
ر |Touz afhichês‏ 
للکتابة و 0001ع سوف نخصصه لاستعراضص الكتابة المرسلة من طرف 


ientاc‏ و ال server‏ علی حد سواء . 
chat 0.0.1‏ .' 


اتل / نطق الإتسال 


| فطع الاتصال_ | اتال 700î‏ 


اسم الدخول 
1داد اسم الد ول 


ب اط 


كما أضفنا 2]زلم و خصصناه لاسم الدخول و أضفنا زر ثالث و غير 
عنوانه الى ارسال إضغط على هذا الاخير و فى محرر الشيفرة أضف 

: التالي‎ 
memo1.Lines.Add("+edı1t2.Text+'>'+memo2.text); 
memo2.Clear; 


clientsocket1.Socket.SendText(memo1. Text); 


شرح الكود : 
1- الكود الاول : ننقل الكتابة من ميمو 1 الى ميمو 2 بالاضافة الى اسم 
الدخول 
2- نحذف الكتابة من 2 0«مصعمص لاننا لا نريد ارسالها مرة ثانية 
3 هو الاهم و هي ارسال الكتابة الى إع۷إعك 
لكن كما نرسل الكتابة يجب أن نستقبل الكتابة من إ٥‏ مء و هذه طريقة 
استقبال الكتابة 
ا علی clientsocket‏ کي تصبح مفعلة و عند حدث القراءة 

OnRead 
أضف ا‎ 

انتهينا من آمر 

CLIENT 


اجعل الفورم كتالي : 


@ 


i LIAL 0 = 
. ٠ إسم الداشول‎ 


server 


- 


نفس الشیئ 1 مصعص و 2 0صعص و 1 العو زر 1 ١٥)اuط‏ الدي 
هو زر الارسال 
اضغط على )ع)عم0یإع ]مء كي يصبح العمل عليها 
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إنتقل من ء16)6إم‌ه۲م الى evé n ements‏ ( قسم الأحداث ) 
و عند حدث القراءة ( ل2٥‏ 1R,ءم11ا٣€م0‏ ) أضف التالي : 
في الاول عملنا على استقبال و ارسال مع11ء الكتابة الأن نعمل على 
استقبال إع۲۷مء الكتابة و ارسالها 
لارسال الكتابة أضف التالي في زر ارسال (۸1 ٥اط‏ ) 


Var 

1:1nteger; 

begin 

Memo1.Lınes.Add(' '+EdıtPseudo.text+'> '+memo2.text ); 
1f (Serversocket1.Socket. ActiveConnections > 0O) then 
begin 


for 1 := 0 to Serversocket1.Socket. ActiveConnections-1 dO 
begin 
Serversocket1.Socket.Connections[1]|.sendtext(EditPseudo.text+'>'+memo1.text); 
end; 

end; 
end; 


نفذ البرنامج 
و جربه خارج بيئة التطوير و ان شاء الله كل شيء سيجري كما تشتهي فقط 
ملاحضة مهمة لا تقم أبدا بنقل الكود و لصقه لانك لن تتعلم شيئ 
البرنامج يحتاج الى العديد من الاشياء الاضافية كرسالات الخطأ و أشياء 
أخرى عديدة كي يصبح نوعا ما احترافي و لكن كما تعلمون ليس الهدف 
من الدرس تصميم برنامج متكامل و انما توضيح عمل الاداتین 
clientsocket and serversocket‏ 


لمحة عن مرلن الخاصة بمكونات ال رلم : هو نوع من الاتصال يسمى 
بالاتصال المباشر او الاتصال العكسي يتم تصميم هذه البرامج بواسطة 
الاداتين ٤٣ع‏ ا٣€‏ مهن و هي تأتي مع أدوات الاندي و ع e]v؟مp ud‏ 


udpClient 
Decision Cube | Dialooues | أ .3 ا‎ | Exernplez | Active | Rawe | Indy - Clients | Indy - Serseurs | ٣ 


E A AREER RREOEMEMIEE, 
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udpServer 
Decision Cube | ل‎ 1r 3. أ‎ e Active | Rave | Indy - Clients | Indy - Serveurs | HE 


JE WÛ J Ê Ê Ê Ê J E I a: 


E E 
المتحكم في المقاهي في هذا الاتصال لن تقوم بالانتضار اذ انك ما ان تفتح‎ 
)اء يقوم باحضار قائمة إع۷عء المتصلين و الغير متصلين فهو‎ 
اتصال مريح و ذو كفائة عالية هذه اللمحة قدمتها كقهوة ختام كي أفتح لك‎ 
.. المجال لكي تبحث و تعلمنا مما علمك الله‎ 


للت و اصل 
Fateh conan @hotma1l.com‏ 
Fateh conan @yahoo.com‏ 


Fateh. dz@ gmaıl.com 
كما أهدي هذا العمل الجد متواضع الى‎ 
منتديات جامع العلوم‎ 
wWWw.SC1ence-collector.com/bb 
منتديات العاصفة‎ 

WWW.3asfh.net/vb 

منتدى المبرمجين العرب 
www.arabteam2000-forum.com‏ 


و الى كل من أحب العلم و لم يحتكره 
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